home *** CD-ROM | disk | FTP | other *** search
/ Saar AMOK 2 / Saar AMOK II - Oktober 1994 (1994)(Kreativ Marketing)(DE)[!][I-7598].iso / disks / 651_700 / 653 / carcosts / install.test < prev    next >
Text File  |  1993-11-01  |  2KB  |  79 lines
  1. ; Install CarCosts
  2.  
  3. (set @default-dest "")
  4.  
  5. (set destination
  6.  (askdir
  7.         (prompt "Choose directory to install CarCosts")
  8.         (help "Choose a destination partition or directory " 
  9.               "for CarCosts.  The install "
  10.               "program will create a directory called 'CarCosts' "
  11.               "in the location you choose and copy the "
  12.               "program files to it.")
  13.         (disk)
  14.         (default "ram:")
  15.  )
  16. )
  17.  
  18. (set dest1 (tackon destination "CarCosts"))
  19.  
  20. (message "\n\nCarCosts will be installed in " destination)
  21.  
  22. (makedir 
  23.         (prompt "I'll create the directory " destination)
  24.         (infos)
  25.         dest1
  26. )
  27.  
  28. (copyfiles
  29.         (prompt "I copy the program")
  30.         (pattern "(CarCosts#?|#?.guide)")
  31.         (dest dest1)
  32.         (source "")
  33.         (confirm)
  34.         (help @copyfiles-help)
  35.         (infos)
  36. )
  37.  
  38. (set answer
  39.         (askchoice
  40.                 (prompt "Install catalog file. Default is German.")
  41.                 (choices "No" "Install English" "Install Nederlands")
  42.                 (default 1)
  43.                 (help "You should install the catalog with your\n"
  44.                       "prefered language."
  45.                 )
  46.         )
  47. )
  48.  
  49.  
  50. (if (<> answer 0)
  51.  (
  52.   (if (= answer 1)
  53.    (set rdest "locale:catalogs/english")
  54.    (set ssource "catalogs/english")
  55.   )
  56.   (if (= answer 2)
  57.    (set rdest "locale:catalogs/nederlands")
  58.    (set ssource "catalogs/nederlands")
  59.   )
  60.   (copyfiles
  61.         (prompt "Copy catalog to " rdest)
  62.         (pattern "#?.catalog")
  63.         (dest rdest)
  64.         (source ssource)
  65.         (confirm)
  66.         (help @copyfiles-help)
  67.         (infos)
  68.   )
  69.  )
  70. )
  71.  
  72.  
  73.  
  74. (message "\nNow you are ready to use CarCosts.\n\nYou have to install MUI "
  75.          "before you can use the program.\n"
  76. )
  77.  
  78.  
  79.